1// Insert menu illustration scene "Animation.pov" 2// Author: Friedrich A. Lohmueller, June 2012 3#version 3.7; 4#if (( Typ != 10 ) & (Typ != 20)) 5global_settings{ assumed_gamma 1.0 } 6#end 7 8#default{ finish{ ambient 0.1 diffuse 0.9 }} 9#include "shapes.inc" 10#include "colors.inc" 11#include "textures.inc" 12 13#declare In_Path = "C0 - Animation/" 14 15 // #declare Typ =21; // for tests 16 17#switch (Typ) //---------------------------------------------------------- 18 19#case(10) #declare Txt_Path="10 - animation1 ini_file.txt" #break 20#case(11) #declare Txt_Path="11 - animation1 scene_file.txt" #break 21 22#case(20) #declare Txt_Path="20 - animation2 ini_file.txt" #break 23#case(21) #declare Txt_Path="21 - animation2 scene_file.txt" #break 24 25#end // of '#switch (Typ)' ------------------------------------------------ 26//------------------------------------------------------------------------- 27 28 29 30//------------------------------------------------------------------------- 31//---------- 32#if (Typ=10) // In_Path,"10 - animation1 ini_file.txt" 33#include "10 - Ready made scenes/50 - Basic Scene 05 - Grass with small clouds in sky.txt" 34//---- 35 #for (Nr, 0, 1, 1/20) 36 sphere{ <0,0,0>, 0.15 37 texture { pigment{ color rgb<1,0,0> } finish{ phong 1}} 38 translate<1,0.5,0> 39 rotate<0,360*(Nr),0> 40 } 41 #end // --- 42//#include concat(In_Path,Sub_Path4,Txt_Path) 43#end 44//---------- 45#if (Typ=11) // In_Path,"11 - animation1 scene_file.txt" 46 #include concat(In_Path,Txt_Path) 47#end 48//---------- 49//---------- 50#if (Typ=20) // In_Path,"20 - animation2 ini_file.txt" 51 #include "10 - Ready made scenes/50 - Basic Scene 05 - Grass with small clouds in sky.txt" 52 //-------- 53 #declare Spline_1 = 54 spline { 55 natural_spline 56 57 -0.25, < 0, 2.1, 0.5>, 58 -0.15, <-1, 0.5, 0.0>, 59 60 0.00, <-1, 0.1,-1.0>, 61 0.25, < 0, 0.1,-0.5>, 62 0.35, < 1, 0.1,-1.0>, 63 0.50, < 1, 0.5, 1.0>, 64 0.75, < 0, 2.1, 0.5>, 65 0.85, <-1, 0.5, 0.0>, 66 1.00, <-1, 0.1,-1.0> 67 68 1.25, < 0, 0.1, 0.0> 69 1.35, < 1, 0.1,-1.0>, 70 } //------------------- 71 #for (Nr, 0, 1, 1/30) 72 sphere{ <0,0,0>, 0.15 73 texture { pigment{ color rgb<1,0,0> } finish{ phong 1}} 74 translate Spline_1(Nr+0.25)+<0,0.15,0> 75 } 76 #end // ------- 77#end 78//---------- 79//---------- 80#if (Typ=21) // In_Path,"21 - animation2 scene_file." 81 #include concat(In_Path,Txt_Path) 82#end 83//---------- 84//---------- 85 86//---------- End Animation